
// Copyright (c) 2010-2021 niXman (github dot nixman at pm dot me). All
// rights reserved.
//
// This file is part of YAS(https://github.com/niXman/yas) project.
//
// Distributed under the Boost Software License, Version 1.0. (See accompanying
// file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
//
//
//
// Boost Software License - Version 1.0 - August 17th, 2003
//
// Permission is hereby granted, free of charge, to any person or organization
// obtaining a copy of the software and accompanying documentation covered by
// this license (the "Software") to use, reproduce, display, distribute,
// execute, and transmit the Software, and to prepare derivative works of the
// Software, and to permit third-parties to whom the Software is furnished to
// do so, all subject to the following:
//
// The copyright notices in the Software and this entire statement, including
// the above license grant, this restriction and the following disclaimer,
// must be included in all copies of the Software, in whole or in part, and
// all derivative works of the Software, unless such copies or derivative
// works are solely in the form of machine-executable object code generated by
// a source language processor.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT
// SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE
// FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE,
// ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
// DEALINGS IN THE SOFTWARE.

#ifndef __yas__tests__base__include__boost_fusion_vector_hpp
#define __yas__tests__base__include__boost_fusion_vector_hpp

/***************************************************************************/

template<typename archive_traits>
bool boost_fusion_vector_test(std::ostream &log, const char *archive_type, const char *test_name) {
	boost::fusion::vector<int, double> v1(33, 3.14), v2;

	typename archive_traits::oarchive oa;
	archive_traits::ocreate(oa, archive_type);
	oa & YAS_OBJECT_NVP("obj", ("vector", v1));

	typename archive_traits::iarchive ia;
	archive_traits::icreate(ia, oa, archive_type);
	ia & YAS_OBJECT_NVP("obj", ("vector", v2));
	if ( v1 != v2 ) {
		YAS_TEST_REPORT(log, archive_type, test_name);
		return false;
	}

	std::set<std::string> set;
	set.insert("2");
	set.insert("3");
	set.insert("4");

	boost::fusion::vector<
		std::string,
		std::set<std::string>
	> v3("1", std::move(set)), v4;

	typename archive_traits::oarchive oa2;
	archive_traits::ocreate(oa2, archive_type);
	oa2 & YAS_OBJECT_NVP("obj", ("vector", v3));

	typename archive_traits::iarchive ia2;
	archive_traits::icreate(ia2, oa2, archive_type);
	ia2 & YAS_OBJECT_NVP("obj", ("vector", v4));
	if ( v3 != v4 ) {
		YAS_TEST_REPORT(log, archive_type, test_name);
		return false;
	}

	boost::fusion::vector<int, int> vv;

	typename archive_traits::oarchive oa3;
	archive_traits::ocreate(oa3, archive_type);
	oa3 & YAS_OBJECT_NVP("obj", ("vector", boost::fusion::make_vector(33,44)));

	typename archive_traits::iarchive ia3;
	archive_traits::icreate(ia3, oa3, archive_type);
	ia3 & YAS_OBJECT_NVP("obj", ("vector", vv));

	if ( vv != boost::fusion::make_vector(33,44) ) {
		YAS_TEST_REPORT(log, archive_type, test_name);
		return false;
	}

	static const char str[] = "str";
	boost::fusion::vector<boost::uint64_t, std::string> v5(33, str), v6, v7;

	typename archive_traits::oarchive oa4;
	archive_traits::ocreate(oa4, archive_type);
	oa4 & YAS_OBJECT_NVP("obj", ("vector", v5));

    static const std::size_t binary_expected_size =
         archive_traits::oarchive_type::header_size() // archive header
        +sizeof(std::uint8_t) // fusion::vector size marker
        +sizeof(std::uint64_t) // first type
        +sizeof(std::uint64_t) // string size marker
        +std::strlen(str) // string
    ;
    static const std::size_t binary_compacted_expected_size =
         archive_traits::oarchive_type::header_size() // archive header
        +sizeof(std::uint8_t) // fusion::vector size marker
        +1/*len of next field*/
        +1/*string length*/+std::strlen(str) // string
    ;
	static const std::size_t text_expected_size =
		archive_traits::oarchive_type::header_size()
		+1/*len of next field*/+1/*size marker*/
		+1/*len of next field*/+2/*value*/
		+1/*len of next field*/+1/*string len*/+3/*string*/
	;

	if ( yas::is_binary_archive<typename archive_traits::oarchive_type>::value ) {
		if ( archive_traits::oarchive_type::compacted() ) {
            const size_t current_size = oa4.size();
            if (current_size != binary_compacted_expected_size) {
				YAS_TEST_REPORT(log, archive_type, test_name);
                return false;
            }
        } else {
            const size_t current_size = oa4.size();
            if (current_size != binary_expected_size) {
				YAS_TEST_REPORT(log, archive_type, test_name);
                return false;
            }
        }
	}
	if ( yas::is_text_archive<typename archive_traits::oarchive_type>::value ) {
		const size_t current_size = oa4.size();
		if ( current_size != text_expected_size ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}

	typename archive_traits::iarchive ia4;
	archive_traits::icreate(ia4, oa4, archive_type);
	ia4 & YAS_OBJECT_NVP("obj", ("vector", v6));
	if ( v5 != v6 ) {
		YAS_TEST_REPORT(log, archive_type, test_name);
		return false;
	}

	typename archive_traits::oarchive oa5;
	archive_traits::ocreate(oa5, archive_type);
	auto v = boost::fusion::make_vector<boost::uint64_t, std::string>(33, "str");
	oa5 & YAS_OBJECT_NVP("obj", ("vector", std::move(v)));

	if ( yas::is_binary_archive<typename archive_traits::oarchive_type>::value ) {
        if ( archive_traits::oarchive_type::compacted() ) {
            const size_t current_size2 = oa5.size();
            if (current_size2 != binary_compacted_expected_size) {
				YAS_TEST_REPORT(log, archive_type, test_name);
                return false;
            }
        } else {
            const size_t current_size2 = oa5.size();
            if (current_size2 != binary_expected_size) {
				YAS_TEST_REPORT(log, archive_type, test_name);
                return false;
            }
        }
	}
	if ( yas::is_text_archive<typename archive_traits::oarchive_type>::value ) {
		const size_t current_size = oa5.size();
		if ( current_size != text_expected_size ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}

	typename archive_traits::iarchive ia5;
	archive_traits::icreate(ia5, oa5, archive_type);
	ia5 & YAS_OBJECT_NVP("obj", ("vector", v7));
	if ( v5 != v7 ) {
		YAS_TEST_REPORT(log, archive_type, test_name);
		return false;
	}

	boost::fusion::vector<> vv0, vv1;
	typename archive_traits::oarchive oa6;
	archive_traits::ocreate(oa6, archive_type);
	oa6 & YAS_OBJECT_NVP("obj", ("vector", vv0));

	if ( yas::is_binary_archive<typename archive_traits::oarchive_type>::value ) {
		if ( oa6.size() != (archive_traits::oarchive_type::header_size()+1) ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}
	if ( yas::is_text_archive<typename archive_traits::oarchive_type>::value ) {
		if ( oa6.size() != (archive_traits::oarchive_type::header_size()+1/*len of next field*/+1/*size marker*/) ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}

	typename archive_traits::iarchive ia6;
	archive_traits::icreate(ia6, oa6, archive_type);
	ia6 & YAS_OBJECT_NVP("obj", ("vector", vv1));

	boost::fusion::vector0<> ve0, ve1;
	typename archive_traits::oarchive oa7;
	archive_traits::ocreate(oa7, archive_type);
	oa7 & YAS_OBJECT_NVP("obj", ("vector", ve0));

	if ( yas::is_binary_archive<typename archive_traits::oarchive_type>::value ) {
		if ( oa7.size() != (archive_traits::oarchive_type::header_size()+1) ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}
	if ( yas::is_text_archive<typename archive_traits::oarchive_type>::value ) {
		if ( oa7.size() != (archive_traits::oarchive_type::header_size()+1/*len of next field*/+1/*size marker*/) ) {
			YAS_TEST_REPORT(log, archive_type, test_name);
			return false;
		}
	}

	typename archive_traits::iarchive ia7;
	archive_traits::icreate(ia7, oa7, archive_type);
	ia7 & YAS_OBJECT_NVP("obj", ("vector", ve1));

	return true;
}

/***************************************************************************/

#endif // __yas__tests__base__include__boost_fusion_vector_hpp
